﻿Public MustInherit Class NamedStatusObserver
    Implements Observer
    Protected statusClass As NamedStatusObservable
    Sub New(ByVal aStatusClass As NamedStatusObservable)
        statusClass = aStatusClass
        statusClass.Register(Me)
    End Sub

    Public MustOverride Sub Notify() Implements Observer.Notify
End Class
